COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(declare (special x))
C00008 ENDMK
C⊗;
(declare (special x))

(defun dreconc1 (current previous)
    (cond ((null current) previous)
	  (t (dreconc1 (cdr current) 
		       (rplacd current previous)))))

(defun dreconc2 (current previous)
  (prog (next)
   b     
    (cond ((null current) (return previous)))
    (setq next (cdr current))
    (rplacd current previous)
    (setq previous current current next)
    (go b)))))))

(defun dreconc3 (current previous)
  (prog (next)
   b     
    (cond ((null current) (return previous)))
    (setq next (cdr current))
    (rplacd current previous)
    (cond ((null next) (return current)))
    (setq previous (cdr next))
    (rplacd next current)
    (cond ((null previous) (return next)))
    (setq current (cdr previous))
    (rplacd previous next)
    (go b)))

(include "timer.lsp")

(timer timit1 (dreconc1 x ()))

(timer timit2 (dreconc2 x ()))

(timer timit3 (dreconc3 x ()))

(declare (special n) (fixnum n))
(setq n 32000.)
(defun init ()
 (declare (fixnum i))
       (do ((a () (cons () a))
	    (i n (1- i)))
	   ((zerop i) (setq x a)))
       ())

 (fasload dreconc)
 (fasload ttime fas lisp)

(gc)(init)
 (timit1)
(gc) (init)
 (timit2)
(gc) (init)
 (timit3)
 
Timing performed on Wednesday 08/11/82 at 15:55:51.
Cpu Time = 0.314
Elapsed Time = 0.88333333
Wholine Time = 0.71666667
GC Time = 0.0
Load Average Before  = 0.48244655
Load Average After   = 0.486882687
Average Load Average = 0.48466462
NIL 
NIL 
NIL 
Timing performed on Wednesday 08/11/82 at 15:55:59.
Cpu Time = 0.288
Elapsed Time = 0.68333333
Wholine Time = 0.516666666
GC Time = 0.0
Load Average Before  = 0.477636576
Load Average After   = 0.48292458
Average Load Average = 0.480280578
NIL 
NIL 
NIL 
Timing performed on Wednesday 08/11/82 at 15:56:10.
Cpu Time = 0.142
Elapsed Time = 0.3
Wholine Time = 0.283333335
GC Time = 0.0
Load Average Before  = 0.47463727
Load Average After   = 0.475913167
Average Load Average = 0.47527522
NIL 
NIL 
NIL 
Timing performed on Wednesday 08/11/82 at 15:56:34.
Cpu Time = 0.315
Elapsed Time = 0.78333333
Wholine Time = 0.75
GC Time = 0.0
Load Average Before  = 0.439986587
Load Average After   = 0.44331503
Average Load Average = 0.441650808
NIL 
NIL 
NIL 
Timing performed on Wednesday 08/11/82 at 15:56:41.
Cpu Time = 0.287
Elapsed Time = 0.483333334
Wholine Time = 0.466666665
GC Time = 0.0
Load Average Before  = 0.440723777
Load Average After   = 0.442823768
Average Load Average = 0.441773772
NIL 
NIL 
NIL 
Timing performed on Wednesday 08/11/82 at 15:56:45.
Cpu Time = 0.142
Elapsed Time = 0.333333332
Wholine Time = 0.15
GC Time = 0.0
Load Average Before  = 0.46273291
Load Average After   = 0.464287996
Average Load Average = 0.463510454
NIL 
NIL 
NIL 
Timing performed on Wednesday 08/11/82 at 15:56:57.
Cpu Time = 0.314
Elapsed Time = 0.833333336
Wholine Time = 0.71666667
GC Time = 0.0
Load Average Before  = 0.450018525
Load Average After   = 0.454531074
Average Load Average = 0.4522748
NIL 
NIL 
NIL 
Timing performed on Wednesday 08/11/82 at 15:57:03.
Cpu Time = 0.288
Elapsed Time = 0.78333333
Wholine Time = 0.53333333
GC Time = 0.0
Load Average Before  = 0.462354302
Load Average After   = 0.468107462
Average Load Average = 0.465230882
NIL 
NIL 
NIL 
Timing performed on Wednesday 08/11/82 at 15:57:07.
Cpu Time = 0.143
Elapsed Time = 0.266666666
Wholine Time = 0.25
GC Time = 0.0
Load Average Before  = 0.46737826
Load Average After   = 0.4684186
Average Load Average = 0.46789843
NIL